home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g25.bas < prev    next >
BASIC Source File  |  1991-10-18  |  513b  |  20 lines
  1. 100 ' G25 T.WAKAMATSU
  2. 110 L=9:C=4:PI=3.14159!:CLS
  3. 120 FOR I=1 TO 3
  4. 130   READ A,B:L=14-L:C=7-C
  5. 140   FOR T=0 TO 2*PI STEP PI/192
  6. 150     C=L-C
  7. 160     X=170*SIN(A*T)+260
  8. 170     Y=170*COS(B*T)+180
  9. 180     LINE (X,Y)-(X+125,Y+125),PSET,%C,B
  10. 190   NEXT T
  11. 200   FOR D=1 TO 5000:NEXT D
  12. 210   FOR T=0 TO 2*PI STEP PI/192
  13. 220     X=170*SIN(A*T)+260
  14. 230     Y=170*COS(B*T)+180
  15. 240     LINE (X,Y)-(X+125,Y+125),PSET,0,B
  16. 250   NEXT T
  17. 260   FOR D=1 TO 2000:NEXT D
  18. 270 NEXT I
  19. 280 DATA 65,65,70,35,115,115
  20.